home *** CD-ROM | disk | FTP | other *** search
/ Let's Learn About Machines / Let's Learn About Machines.iso / mac / macfiles / Atools / quit.Dxr / 00006.ls < prev    next >
Encoding:
Text File  |  1997-09-18  |  324 b   |  16 lines
  1. on mouseUp
  2.   global lightsOn
  3.   if lightsOn = 0 then
  4.     puppetSound("quit")
  5.     updateStage()
  6.     wait(10)
  7.     quit()
  8.   else
  9.     puppetSprite(4, 1)
  10.     set the castNum of sprite 4 to the number of cast "PW 1" + lightsOn - 1
  11.     set the locV of sprite 4 to 258
  12.     set the locH of sprite 4 to 223
  13.     continue()
  14.   end if
  15. end
  16.